swap(seqinr)
swap()所属R语言包:seqinr
Exchange two R objects
交换两个R对象
译者:生物统计家园网 机器人LoveR
描述----------Description----------
Exchange object x with object y.
Exchange对象x:的对象y的。
用法----------Usage----------
swap(x, y)
参数----------Arguments----------
参数:x
an R object
R对象
参数:y
an R object
R对象
值----------Value----------
none.
没有。
(作者)----------Author(s)----------
J.R. Lobry
参考文献----------References----------
参见----------See Also----------
move
move
实例----------Examples----------
#[]
# Example in a new empty environment:[例如,在一个新的空环境:]
#[]
local({
x <- 0:9
y <- 10:19
print(x)
print(y)
swap(x[1], y[2])
print(x)
print(y)
})
#[]
# Sanity check with a bubble sort:[一个冒泡排序的合理性检查:]
#[]
bubble.sort <- function(tab, n = length(tab)){
i <- 1
while(i < n){
if(tab[i + 1] < tab[i]){
swap(tab[i], tab[i+1])
i <- 1
} else {
i <- i+1
}
}
return(tab)
}
set.seed(1)
x <- rnorm(10)
stopifnot(identical(sort(x), bubble.sort(x)))
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注:
注1:为了方便大家学习,本文档为生物统计家园网机器人LoveR翻译而成,仅供个人R语言学习参考使用,生物统计家园保留版权。
注2:由于是机器人自动翻译,难免有不准确之处,使用时仔细对照中、英文内容进行反复理解,可以帮助R语言的学习。
注3:如遇到不准确之处,请在本贴的后面进行回帖,我们会逐渐进行修订。
|