12 Jan
                
                    2012
                
            
            
                12 Jan
                
                '12
                
            
            
            
        
    
                00:33
            
        As probabilidades dentro prob=c() tem que somar 1? Complementando, assim dará certo: table(sample(1:3, size=100, replace = T, prob=c(0.1, 0.6, 0.3)))