Displaying 7 results from an estimated 7 matches for "nbre".
Did you mean:
bre
2011 Jan 11
0
modified FAST Script from package SensoMineR for the R community - Reg
...quot;, axes[1], " (", signif(res.mfa$eig[axes[1],
2], 4), " %)", sep = "")
lab.y <- paste("Dim ", axes[2], " (", signif(res.mfa$eig[axes[2],
2], 4), " %)", sep = "")
group <- res.mfa$call$group
nbre.grpe <- length(group)
type <- res.mfa$call$type
num.group.sup = NULL
if (!is.null(res.mfa$group$coord.sup)) {
num.group.sup <- res.mfa$call$num.group.sup
nbre.grpe.sup <- length(num.group.sup)
type.sup <- res.mfa$call$type[num.group.sup]
ty...
2003 Sep 12
1
save object interactively
Hello, it wanted to know as I can keep to save a object of R in interactive
form, in which I can put the name of the file in a window of I talk, and
not to have to create it, a badly serious example:
x<-c(1,2,3,4)
> nbre<-"x.Rdata"
> f<-file.choose()
Error in file.choose() : file choice cancelled
> f
Error: Object "f" not found
> file.create(nbre)
[1] TRUE
> f<-file.choose()
> save(nbre,file=f)
But I should create the file before electing it, there is not form of
openin...
2001 Jun 12
1
cophenetic matrix
...o interactively input data
### sorry for people that doesn't like this
### the cophenetic matrix is saved with the name:
### filename.arbre
### source("cophmatrix.r")
###
cophmatrix <- function(){
library(mva)
library(sm)
nom <- ask(message="Name of the file")
nbre <- ask(message="Number of sounds")
quest <- ask(message="Matrix of dissimilarity (1) or nxm matrix (2)")
fichier <- read.table(nom)
## matrix nxn ou nxm
## proximity between objects: nxn or description of n objects with m attributes
if(quest == 1){
dis1...
2003 Oct 01
0
curious error with tkcheckbutton
...> b
[1] "::RTcl1" "::RTcl2" "::RTcl3" "::RTcl4" "::RTcl5" "::RTcl6"
the script is(I'm use R 1.7.1 for win, the fail is in the first execution
of the script):
library(tcltk)
tt<-tktoplevel()
f<-tkframe(tt)
tkpack(f)
j<-6
nbre<-c("c1","c2","c3","c4","c5","c6")
b<-c()
i<-1
while (i<=j){
aux<-paste("b",i,sep="")
aux<-tclVar(init=0)
b<-c(b,as.character(aux))
tclvalue(b[i])<-0
i<-i+1
}
i<-1
while (i<...
2003 Oct 09
0
curious mistake in tkradiobutton
...cl has been created in the array b and they exist:
> b
[1] "::RTcl1" "::RTcl2" "::RTcl3" "::RTcl4" "::RTcl5" "::RTcl6"
the script is(I'm use R 1.7.1 for win):
library(tcltk)
tt<-tktoplevel()
f<-tkframe(tt)
tkpack(f)
j<-6
nbre<-c("c1","c2","c3","c4","c5","c6")
b<-c()
i<-1
while (i<=j){
aux<-paste("b",i,sep="")
aux<-tclVar(init=0)
b<-c(b,as.character(aux))
tclvalue(b[i])<-0
i<-i+1
}
i<-1
while (i<...
2003 Aug 15
1
menubutton don´t work
...lt;-length(vectPath)
arch<-vectPath[cant]
tkconfigure(mb,state="normal")
tkadd(m, "radio", label=arch, variable="archOp", value=arch)
tkconfigure(b2,state="normal")
}
ver<-function(n){
tabla<-read.table(n,header=TRUE,comment.char="@")
nbre<-names(tabla)
tabla
}
tt<-tktoplevel()
b<-tkbutton(tt,text="abrir",command=function()archivos())
tkpack(b)
tkpack(mb <- tkmenubutton(tt, text="Datos",state="disabled"))
m <- tkmenu(mb,tearoff=FALSE)
tkconfigure(mb,menu=m)
b2<-tkbutton(tt,text="...
2020 Oct 09
1
Aide pour finaliser ce code
...s n?gatives sont remplac?es par zero
a=eigen(M,TRUE)
b=a$values
b[b<0]=0
c=a$vectors
d=diag(sqrt(b))
b=solve(c)
a=c%*%d%*%b
return(a)
}
# d?claration des parametres
m1=0.01 # valeur de alpha (risque de 1%)
m2=0.05 # valeur de alpha (risque de 5%)
m3=0.1 # valeur de alpha (risque de 10%)
nbrefoissim=100 # nbrefois que le programme tourne
p=2 #dimension de la variable X
q=3 #dimension de la variable Y
R=c(2,3,2);# Nbre de partition de chaque composante de la variable Y
if(length(R) != q) stop("La taille de R doit ?tre ?gale ? q")
n=25 # Taille echantillon
N=c(25,50,100,200,300,...