找回密码
 注册
查看: 1363|回复: 0

R语言:Skye()函数中文帮助文档(中英文对照)

[复制链接]
发表于 2012-2-16 18:27:15 | 显示全部楼层 |阅读模式
Skye(MASS)
Skye()所属R语言包:MASS

                                         AFM Compositions of Aphyric Skye Lavas
                                         原子力显微镜组成Aphyric斯凯熔岩

                                         译者:生物统计家园网 机器人LoveR

描述----------Description----------

The Skye data frame has 23 rows and 3 columns.
Skye数据框有23行,3列。


用法----------Usage----------


Skye



格式----------Format----------

This data frame contains the following columns:
这个数据框包含下列资料:

Percentage of sodium and potassium oxides.
钠和钾的氧化物的百分比。

Percentage of iron oxide.
三氧化二铁的百分比。

Percentage of magnesium oxide.
氧化镁的百分比。


源----------Source----------

R. N. Thompson, J. Esson and A. C. Duncan (1972) Major element chemical variation in the Eocene lavas of the Isle of Skye. J. Petrology, 13, 219–253.
护士汤普森,J. Esson和交流邓肯(1972)斯凯岛的主要元素在始新世熔岩的化学变化。研究岩石,13,219-253。


参考文献----------References----------

The Statistical Analysis of Compositional Data. Chapman and Hall, p.360.
Modern Applied Statistics with S. Fourth edition.  Springer.

举例----------Examples----------


# ternary() is from the on-line answers.[三元()是从上线的答案。]
ternary <- function(X, pch = par("pch"), lcex = 1,
                    add = FALSE, ord = 1:3, ...)
{
  X <- as.matrix(X)
  if(any(X < 0)) stop("X must be non-negative")
  s <- drop(X %*% rep(1, ncol(X)))
  if(any(s<=0)) stop("each row of X must have a positive sum")
  if(max(abs(s-1)) > 1e-6) {
    warning("row(s) of X will be rescaled")
    X <- X / s
  }
  X <- X[, ord]
  s3 <- sqrt(1/3)
  if(!add)
  {
    oldpty <- par("pty")
    on.exit(par(pty=oldpty))
    par(pty="s")
    plot(c(-s3, s3), c(0.5-s3, 0.5+s3), type="n", axes=FALSE,
         xlab="", ylab="")
    polygon(c(0, -s3, s3), c(1, 0, 0), density=0)
    lab <- NULL
    if(!is.null(dn <- dimnames(X))) lab <- dn[[2]]
    if(length(lab) < 3) lab <- as.character(1:3)
    eps <- 0.05 * lcex
    text(c(0, s3+eps*0.7, -s3-eps*0.7),
         c(1+eps, -0.1*eps, -0.1*eps), lab, cex=lcex)
  }
  points((X[,2] - X[,3])*s3, X[,1], ...)
}

ternary(Skye/100, ord=c(1,3,2))

转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。


注:
注1:为了方便大家学习,本文档为生物统计家园网机器人LoveR翻译而成,仅供个人R语言学习参考使用,生物统计家园保留版权。
注2:由于是机器人自动翻译,难免有不准确之处,使用时仔细对照中、英文内容进行反复理解,可以帮助R语言的学习。
注3:如遇到不准确之处,请在本贴的后面进行回帖,我们会逐渐进行修订。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|小黑屋|生物统计家园 网站价格

GMT+8, 2025-1-23 15:13 , Processed in 0.022910 second(s), 16 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表