R语言中级--自定义方程

#求电费，＜50,85折，50--120,50元/度，＞120,1.15倍
myfunction <- function(deg,price = 50){if(deg>120)energyprice = deg*price*1.15else if(deg<80)energyprice = deg*price*0.85else energyprice = deg*pricereturn(round(energyprice))}
myfunction(100)myfunction2 <- function(deg,price = 50, poor = FALSE)
{energyprice = deg*price
if (deg > 100)energyprice = deg*price*1.15
elseif (poor == TRUE)energyprice = energyprice*0.85*0.7elseenergyprice = energyprice*0.85return(round(energyprice))}
myfunction2(80,poor = TRUE)#给定一个数x，求x*(x-1)*...*2*1
myfunction3 <- function(x)
{ if (x == 0)x_sum = 1
else x_sum = x*myfunction3(x-1)
return(x_sum)}
myfunction3(4)ifelse(condition,statement1,statement2)#求1到n 之和
myfunction4 <- function(n)
{sum = 0
for (i in 1:n)sum = sum + i
return(sum)}
myfunction4(100)
sum(1:100)#同fun4
myfunction5 <- function(n)
{sum = 0
while (n >= 0) {      sum = sum + nn = n - 1}
return(sum)
}
myfunction5(100)#同fun4
myfunction6 <- function(n)
{sum = 0
repeat{ sum = sum + nn = n - 1if(n == 0) break
}
return(sum)}
myfunction6(100)#奇数之和
myfunction7<- function(n)
{sum=0
for(i in 1:n)
{if(i %%2 !=0) next   sum=sum+i
}
return(sum)
}
myfunction7(100)
x<- c(1:100)
x %% 2

转载于:https://www.cnblogs.com/super-yb/p/11047938.html

R语言中级--自定义方程相关推荐

R语言编写自定义函数计算R方、使用自助法Bootstrapping估计多元回归模型的R方的置信区间、可视化获得的boot对象、估计单个统计量的置信区间、分别使用分位数法和BCa法
R语言编写自定义函数计算R方.使用自助法Bootstrapping估计多元回归模型的R方的置信区间.可视化获得的boot对象.估计单个统计量的置信区间.分别使用分位数法和BCa法(Bootstrapp ...
R语言编写自定义函数自定义ggplot图像中的图例（legend）的位置、图例标题、键值、文本字体大小（title、text、key）、颜色标识的大小、点形状pch的大小
R语言编写自定义函数自定义ggplot图像中的图例(legend)的位置.图例标题.键值.文本字体大小(title.text.key).颜色标识的大小.点形状pch的大小目录
R语言编写自定义函数、评估回归模型预测变量的相对重要性（Relative importance）、通过在所有可能的子模型中添加一个预测变量而获得的R方的平均增加、评估预测变量的重要度、并通过点图可视化
R语言编写自定义函数.评估回归模型预测变量的相对重要性(Relative importance).通过在所有可能的子模型中添加一个预测变量而获得的R方的平均增加.来评估预测变量的重要程度.并通过点图可 ...
R语言编写自定义函数、创建使用ggplot2生成图标（icon）的主题（theme）函数、使用ggplot2以及自定义的图标主题函数创建箱图（boxplot）图标、ggsave保存图标(png、svg
R语言编写自定义函数.创建使用ggplot2生成图标(icon)的主题(theme)函数.使用ggplot2以及自定义的图标主题函数创建箱图(boxplot)图标.ggsave保存图标(png.svg ...
R语言编写自定义描述统计计算函数、使用doBy包的summaryBy函数计算不同分组（group）的描述性统计值(Descriptive statistics by group、样本个数、均值、标准)
R语言编写自定义描述统计计算函数.使用doBy包的summaryBy函数计算不同分组(group)的描述性统计值(Descriptive statistics by group using summa ...
R语言编写自定义函数基于ggsumarystats函数计算每个分组的统计值、自定义可视化分组分面条形图，并在X轴标签下方添加分组对应的统计值（样本数N、中位数median、四分位数的间距iqr）
R语言编写自定义函数基于ggsumarystats函数计算每个分组的统计值.自定义可视化分组分面条形图,并在X轴标签下方添加分组对应的统计值(样本数N.中位数median.四分位数的间距iqr) 目录
R语言编写自定义分组统计函数（customize statistics function）可视化分组箱图并在X轴标签下方添加分组对应的统计值（样本数N、中位数median、四分位数的间距iqr）
R语言编写自定义分组统计函数(customize statistics function)可视化分组箱图并在X轴标签下方添加分组对应的统计值(样本数N.中位数median.四分位数的间距iqr) 目录
R语言编写自定义函数使用Wilcoxon符号秩检验（Wilcoxon signed rank）实现多分组非参数成对检验（pairwise）、并使用p.adjust函数调整概率值
R语言编写自定义函数使用Wilcoxon符号秩检验(Wilcoxon signed rank)实现多分组非参数成对检验(Nonparametric pairwise multiple comparis ...
R语言基于自定义函数构建xgboost模型并使用LIME解释器进行模型预测结果解释：基于训练数据以及模型构建LIME解释器解释一个iris数据样本的预测结果、LIME解释器进行模型预测结果解释并可视化
R语言基于自定义函数构建xgboost模型并使用LIME解释器进行模型预测结果解释:基于训练数据以及模型构建LIME解释器解释一个iris数据样本的预测结果.LIME解释器进行模型预测结果解释并可视化 ...

R语言中级--自定义方程

R语言中级--自定义方程相关推荐

最新文章

热门文章