Error in round(summary(sma(logR ~ logV * Nt, data = try_df))$r.squared, : non-numeric argument to mathematical function

这个错误提示说明`round`函数的输入参数不是一个数值类型的向量，你可以尝试检查一下`summary(sma(logR~logV*Nt,data = try_df))$r.squared`的值，看看是否为数值类型。如果不是数值类型，可以尝试使用`as.numeric`函数将其转换为数值类型，例如：

r2 <- round(as.numeric(summary(sma(logR~logV*Nt,data = try_df))$r.squared), 2)

这样就可以将`summary`函数输出的$r^2$值转换为数值类型，然后再使用`round`函数进行四舍五入了。