VBA-R

VBA a Rko....

pripajam sa

pridavam sa...

To ale mate mena :D

Som tu 🙂 RRRrrr je ktooo? :D to je paradne

no parada :D

aj ja sa pripájam :D

som v strehu ľudia

mte nieco?

Ta prva foto z R sa neda citat. A ten zvysok je masaker ale skusim nieco vymysliet

A=matrix(6,6,nrow=1,ncol=2)
B=matrix(c(5,5,5,5),nrow=2,ncol=2,byrow=TRUE)

ale neviem to merge

skusim este nieco poslat

skus aspon to co mas

C<-merge(A,B,all=TRUE,sort=FALSE)

5b = pie(table(zml),labels=c("neživotné","životn"))

Fs<-aggregateDist("convolution",model.freq,model.sev=fx,size=2,prob=0.2,p0=0,maxit=1000)

niesom si isty co ma byt pri model.freq
to je 4 uloha

ul2: y<-sample(c(1:100),10,replace=F)
plot(y) ostatne nemam

jak si zadefinovala tu tabulku v 5?

fx<-c(0,0,25,0.5,0.25)
> Fs<-aggregateDist("recursive",model.freq = "binomial", model.sev = c(0,0.25, 0.5, 0.25), x.scale = 50, size = 2, prob = 0.2)
> ps<-diff(Fs)
> ps
[1] 0.6400 0.0800 0.1625 0.0900 0.0150 0.0100 0.0025

> phl<-as.factor(phl)
> levels(pohlavie)<-c("žena","muž")
Error in levels(pohlavie) <- c("žena", "muž") :
object 'pohlavie' not found
> levels(phl)<-c("žena","muž")
> table1<-table(zml,phl)
> table1
phl
zml žena muž
N 5 2
Z 1 2

vba 6.priklad

Sub loop1()

Worksheets("loop").Select
Range("F10").Select
Do Until IsEmpty(ActiveCell.Value)
ActiveCell.Offset(, 1).Select
Loop
ActiveCell.Offset(, -1).Select
End Sub

vba 5.priklad

Sub pole()

Worksheets("pole").Select
Range("C1").Select

Do
ActiveCell.Offset(1, 0).Select
If Not IsEmpty(ActiveCell.Value) Then
Exit Do
End If
Loop

LastRow = ActiveCell.End(xlDown).Row
Range(ActiveCell, Cells(LastRow, 3)).Select

End Sub

máte niekto ten 3 priklad z Rka? 🙂

mate niekto VBA?

a dvojku mate?

VBA 3.priklad
vytvor userform, v nom vytvor listbox

Private Sub UserForm_Initialize()
Worksheets("Daily mean Temperature").Select

With ListBox1
.ColumnCount = 13
.ColumnWidths = "50;50;50"
.RowSource = ActiveSheet.Range("B11:N18").Address
End With
End Sub

tento kod ale nedavaj do modulu ale priamo do userformu

dalej vytvor v userforme commandbutton a textbox vedla toho

do kodu userformu pridaj

Private Sub CommandButton1_Click()

Dim y As Range, i As Long
Dim a As String

For i = 1 To 7
a = Range("B12").Offset(i).Value
If StrComp(a, "ALBANY, NY") = 0 Then
Set y = Cells(i + 12, 8)
End If
Next

TextBox1.Value = y

end sub

odkaz

priklad 2

Sub specialcells()
If ActiveSheet.UsedRange.Column > 1 Or ActiveSheet.UsedRange.Row > 1 Then
Debug.Print ActiveSheet.UsedRange.specialcells(xlCellTypeBlanks).Address
End If
End Sub

Aj vyučujúci pozná internet.