Error in do_one(nmeth) : NA/NaN/Inf in foreign function call (arg 1)

Error in do_one(nmeth) : NA/NaN/Inf in foreign function call (arg 1)

目录

Error in do_one(nmeth) : NA/NaN/Inf in foreign function call (arg 1)

#仿真数据

#问题

#解决

#完整错误:


#仿真数据

#create data frame
df <- data.frame(var1=c(2, 4, 4, 6, 7, 8, 8, 9, 9, 12),
                 var2=c(12, 14, 14, 8, 8, 15, 16, 9, 9, 11),
                 var3=c(22, NA, 23, 24, 28, 23, 19, 16, 12, 15))

row.names(df) <- LETTERS[1:10]

#view data frame
df

#问题

#attempt to perform k-means clustering with k = 3 clusters
km <- kmeans(df, centers = 3)

#解决

#删除缺失值所在的数据行在重新进行聚类分析

#remove rows with NA values
df <- na.omit(df)

#perform k-means clustering with k = 3 clusters
km <- kmeans(df, centers = 3)

#view results
km

#完整错误:

> #create data frame
> df <- data.frame(var1=c(2, 4, 4, 6, 7, 8, 8, 9, 9, 12),
+                  var2=c(12, 14, 14, 8, 8, 15, 16, 9, 9, 11),
+                  var3=c(22, NA, 23, 24, 28, 23, 19, 16, 12, 15))

> row.names(df) <- LETTERS[1:10]

> #view data frame
> df
  var1 var2 var3
A    2   12   22
B    4   14   NA
C    4   14   23
D    6    8   24
E    7    8   28
F    8   15   23
G    8   16   19
H    9    9   16
I    9    9   12
J   12   11   15
> #attempt to perform k-means clustering with k = 3 clusters
> km <- kmeans(df, centers = 3)
Error in do_one(nmeth) : NA/NaN/Inf in foreign function call (arg 1)

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

Data+Science+Insight

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值