nie działało dla character

pbiecek · pbiecek · commit b808afb0e068 · 2017-02-23T15:33:47.000+01:00
diff --git a/sejmRP/R/get_deputies_mds.R b/sejmRP/R/get_deputies_mds.R
@@ -52,7 +52,7 @@ get_deputies_mds <- function(distances, clubs = NULL, plot = TRUE, remove_missin
     distances <- distances[idx, idx]
     cluster <- cluster[idx]
   }
-  cluster <- droplevels(cluster)
+  cluster <- factor(as.character(cluster))
   
   nv <- isoMDS(distances, k=2)
 

Original file line number	Diff line number	Diff line change
`@@ -52,7 +52,7 @@ get_deputies_mds <- function(distances, clubs = NULL, plot = TRUE, remove_missin`
`52`	`52`	`distances <- distances[idx, idx]`
`53`	`53`	`cluster <- cluster[idx]`
`54`	`54`	`}`
`55`		`- cluster <- droplevels(cluster)`
	`55`	`+ cluster <- factor(as.character(cluster))`
`56`	`56`
`57`	`57`	`nv <- isoMDS(distances, k=2)`
`58`	`58`